unit FormAdicionaFuncionarioUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.Grids,
  Vcl.DBGrids, JvExDBGrids, JvDBGrid, Data.DB, Datasnap.DBClient,
  System.Actions, Vcl.ActnList;

type
  TFormAdicionaFuncionario = class(TForm)
    JvDBGrid1: TJvDBGrid;
    BitBtn1: TBitBtn;
    ActionList1: TActionList;
    Action1: TAction;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure JvDBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Action1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    id_funcionario,quantidadefunc : integer;

  end;

var
  FormAdicionaFuncionario: TFormAdicionaFuncionario;

implementation

{$R *.dfm}

uses DMDadosUnt;

procedure TFormAdicionaFuncionario.Action1Execute(Sender: TObject);
begin
close;
end;

procedure TFormAdicionaFuncionario.BitBtn1Click(Sender: TObject);
begin
  quantidadefunc := DMDados.cdsAdicionaFuncionario.RecordCount;
  close;
end;

procedure TFormAdicionaFuncionario.FormShow(Sender: TObject);
begin

DMDados.cdsAdicionaFuncionario.Open;
DMDados.cdsTelaAdicionaFunc.EmptyDataSet;


DMDados.cdsAdicionaFuncionario.Close;

DMDados.cdsAdicionaFuncionario.Params[0].AsInteger := id_funcionario;


DMDados.cdsAdicionaFuncionario.Open;
DMDados.cdsAdicionaFuncionario.Edit;
DMDados.cdsAdicionaFuncionario.First;
DMDados.cdsTelaAdicionaFunc.Open;

while not DMDados.cdsAdicionaFuncionario.Eof do
begin

  DMDados.cdsTelaAdicionaFunc.Edit;
  DMDados.cdsTelaAdicionaFunc.Append;
  DMDados.cdsTelaAdicionaFuncid_funcionario.AsInteger := DMDados.cdsAdicionaFuncionarioID_FUNCIONARIO.AsInteger;
  DMDados.cdsTelaAdicionaFuncnome.AsString := DMDados.cdsAdicionaFuncionarioNOME_FUNCIONARIO.AsString;

  DMDados.cdsVFuncionarios.First;
  while not DMDados.cdsVFuncionarios.Eof do
  begin

    if DMDados.cdsVFuncionariosid_funcionario.AsInteger = DMDados.cdsAdicionaFuncionarioID_FUNCIONARIO.AsInteger then
    begin
      DMDados.cdsTelaAdicionaFuncmarcado.AsBoolean := true;

    end;
  DMDados.cdsVFuncionarios.Next;
  end;

    if not DMDados.cdsTelaAdicionaFuncmarcado.AsBoolean then
      DMDados.cdsTelaAdicionaFuncmarcado.AsBoolean := false;

    DMDados.cdsAdicionaFuncionario.Next;

    DMDados.cdsTelaAdicionaFunc.Post;




end;

end;

procedure TFormAdicionaFuncionario.JvDBGrid1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key = VK_RETURN then
    BitBtn1.SetFocus;
end;

end.
